home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_89-02_1989_-_de_Side_B.d64
/
multi change
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
5KB
|
208 lines
10 rem --------------------------------
20 rem - multi-change -
30 rem --------------------------------
40 rem - (c) 1988 by -
50 rem - -
60 rem - jan pompe / bremen -
70 rem --------------------------------
100 :
110 rem vorbereitungen
120 rem --------------
130 :
140 print"[147]"
150 :
160 poke646, 6
170 poke53280, 6
180 poke53281,14
190 :
200 gosub60000 :rem assembler-routinen laden
1000 :
1010 rem menu
1020 rem ----
1030 :
1040 print"[147]"
1050 :
1060 print" [169] [146][169]"
1070 print " [169] multi-change [146][169]"
1080 print " [169] [146][169]"
1090 print " 1 [146] : pixel-change"
1100 print " 2 [146] : single-bit-change"
1110 print " 3 [146] : random-change"
1120 print " 4 [146] : bild speichern"
1130 print " 5 [146] : bild laden"
1140 print " 6 [146] : directory"
1150 print " 7 [146] : kopie anlegen"
1160 print " 8 [146] : kopie aufrufen"
1170 print " x [146] : reset"
1180 :
1190 geta$:ifa$=""then1190
1200 : ifa$="1"then2000 :rem pixel-change
1210 : ifa$="2"then3000 :rem single-bit-change
1220 : ifa$="3"then4000 :rem random-change
1230 : ifa$="4"then5000 :rem bild speichern
1240 : ifa$="5"then6000 :rem bild laden
1250 : ifa$="6"then7000 :rem directory
1260 : ifa$="7"thensys49158 :rem kopien anlegen
1270 : ifa$="8"thensys49161 :rem kopien aufrufen
1280 : ifa$="x"thensys64738 :rem reset
1290 goto1190
2000 :
2010 rem pixel-change
2020 rem ------------
2030 :
2040 gosub10000 :rem grafik einschalten und faerben
2050 :
2060 getw$:ifw$=""then2060
2070 :
2080 sys49167 :rem pixel-change
2090 :
2100 getw$:ifw$=""then2100
2110 :
2120 gosub11000 :rem grafik ausschalten
2130 :
2140 goto1000 :rem menu
3000 :
3010 rem single-bit-change
3020 rem -----------------
3030 :
3040 poke214,23:sys58640 :rem cursor positionieren
3050 :
3060 poke19,64
3070 input" bitkombination '00' wird zu "; bi$(0):print
3080 input"[145] bitkombination '01' wird zu [157][157][157]";bi$(1):print
3090 input"[145] bitkombination '10' wird zu [157][157][157]";bi$(2):print
3100 input"[145] bitkombination '11' wird zu [157][157][157]";bi$(3):print
3130 poke19,0
3140 :
3150 fori=0to3
3160 : bi=2*val(left$(bi$(i),1))+val(right$(bi$(i),1))
3170 : poke828+i,bi*64
3180 next
3190 :
3200 gosub10000 :rem grafik einschalten und faerben
3210 :
3220 getw$:ifw$=""then3220
3230 :
3240 sys49152
3250 :
3260 getw$:ifw$=""then3260
3270 :
3280 gosub11000 :rem grafik ausschalten
3290 :
3300 goto1000 :rem menu
4000 :
4010 rem random-change
4020 rem -------------
4030 :
4040 gosub10000 :rem grafik einschalten und faerben
4050 :
4060 getw$:ifw$=""then4060
4070 :
4080 sys49164 :rem random-change
4090 :
4100 getw$:ifw$=""then4100
4110 :
4120 gosub11000 :rem grafik ausschalten
4130 :
4140 goto1000 :rem menu
5000 :
5010 rem bild speichern
5020 rem --------------
5030 :
5040 poke214,23:sys58640 :rem cursor positionieren
5050 input" filename";fi$
5060 :
5070 sys(57812)fi$,8 :rem parameter uebergeben
5080 poke193, 0
5090 poke194,32
5100 poke174,64
5110 poke175,63
5120 sys62957 :rem save
5130 :
5140 goto1000 :rem menu
6000 :
6010 rem bild laden
6020 rem ----------
6030 :
6040 poke214,23:sys58640 :rem cursor positionieren
6050 input" filename";fi$
6060 :
6070 sys(57812)fi$,8 :rem parameter uebergeben
6080 poke780, 0
6090 poke781, 0
6100 poke782,32
6110 sys65493 :rem load
6120 :
6130 goto1000 :rem menu
7000 :
7010 rem directory
7020 rem ---------
7030 :
7040 print"[147]"
7050 :
7060 n$=chr$(0)
7070 :
7080 open1,8,0,"$"
7090 :
7100 get#1,du$,du$
7110 :
7120 get#1,du$,du$,lo$,hi$
7130 : ifst=64thenclose1:goto7200
7140 : printasc(hi$+n$)*256+asc(lo$+n$);
7150 : get#1,b1$,b2$
7160 : ifb1$thenprintb1$;b2$;:goto7150
7170 : print
7180 goto7120
7190 :
7200 print" taste [146]"
7210 getw$:ifw$=""then7210
7220 :
7230 goto1000 :rem menu
10000 :
10010 rem grafik einschalten und faerben
10020 rem ------------------------------
10030 :
10040 poke53265,59
10050 poke53272,24
10060 :
10070 sys49155 :rem faerben
10080 :
10090 return
11000 :
11010 rem grafik ausschalten
11020 rem ------------------
11030 :
11040 poke53265,27
11050 poke53272,21
11060 :
11070 return
60000 :
60010 rem assembler-routinen laden
60020 rem ------------------------
60030 :
60040 fori=49152to49432
60050 : reada
60060 : pokei,a
60070 next
60080 :
60090 return
61000 :
61010 rem daten
61020 rem -----
61030 :
61040 data76,59,192,76,116,192,76,141,192,76,166,192,76,189,192,160,0,132,247
61050 data169,32,133,248,177,247,160,4,10,8,10,38,249,40,38,249,136,208,245,160
61060 data0,165,249,145,247,230,247,230,247,208,229,230,248,165,248,201,64,208
61070 data221,96,160,0,132,247,169,32,133,248,177,247,162,4,160,0,132,250,10
61080 data38,250,10,38,250,164,250,72,185,60,3,10,38,249,10,38,249,104,202,208
61090 data230,160,0,165,249,145,247,230,247,208,216,230,248,165,248,201,64,208
61100 data208,96,160,0,132,247,169,4,133,248,169,110,145,247,230,247,208,250
61110 data230,248,166,248,224,8,208,242,96,169,0,133,95,169,32,133,96,169,64
61120 data133,90,133,88,169,63,133,91,169,95,133,89,76,191,163,169,0,133,95,169
61130 data64,133,96,133,90,133,88,169,95,133,91,169,63,133,89,76,191,163,160
61140 data0,132,247,169,32,133,248,169,255,141,14,212,141,15,212,162,129,142
61150 data18,212,202,142,24,212,162,4,169,0,133,249,133,250,177,247,133,252,6
61160 data252,38,250,6,252,38,250,173,27,212,74,176,11,70,250,38,249,70,250,38
61170 data249,76,5,193,70,250,8,70,250,38,249,40,38,249,202,208,218,165,249,145
61180 data247,230,247,208,198,230,248,165,248,201,64,208,190,96